home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 December / 1988-12.d64 / digi-sound 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  45 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 20 printchr$(14)chr$(8)chr$(147):poke53280,0:poke53281,0
  3. 30 printtab(12)"[195]opyright 1988":printtab(7)"[195][207][205][208][213][212][197]! [208]ublications, [201]nc."
  4. 40 printtab(10)"[193]ll [210]ights [210]eserved":fori=1to1000:next
  5. 50 fori=49152to49333:reada:pokei,a:x=x+a:next
  6. 60 ifx<>27127thenprint"[197]rror in data statements.":stop
  7. 70 print"[147][158]";tab(12);"[196]igi-[211]ound 64 "
  8. 80 print"[158] 1 [146] [210]ecord":print"[158] 2 [146] [208]layback"
  9. 90 print"[158] 3 [146] [211]ave [211]ample to [196]isk"
  10. 100 print"[158] 4 [146] [204]oad [211]ample from [196]isk"
  11. 110 print"[158] 5 [146] [211]ample [195]ontinuously from [212]ape":print"[158] 6 [146] [209]uit"
  12. 120 printtab(13)"[197]nter (1-6)"
  13. 130 geta$:ifa$=""then130
  14. 140 a=val(a$):onagosub150,180,190,230,260,320:goto70
  15. 150 print"[158]     [208]ress [208]lay on [217]our [196]atasette."
  16. 160 ifpeek(1)=55then160
  17. 170 sys49223:return
  18. 180 sys49152:return
  19. 190 gosub330
  20. 200 poke187,peek(71):poke188,peek(72):p=peek(187)+256*peek(188):poke183,peek(p)
  21. 210 poke187,peek(p+1):poke188,peek(p+2):poke251,0:poke252,16:poke185,1
  22. 220 poke186,d:poke780,251:poke781,69:poke782,192:sys65496:return
  23. 230 gosub330
  24. 240 loadf$,d,1
  25. 250 return
  26. 260 print"[158][206]ote:[146] [217]ou must re-run the program when "
  27. 270 print"finished. [208]ress play on [196]atasette when"
  28. 280 print "ready or press any key to cancel."
  29. 290 geta$:ifa$<>""then70
  30. 300 ifpeek(1)=119then290
  31. 310 sys49296
  32. 320 printchr$(9):poke53280,14:poke53281,6:print"[154][147]":end
  33. 330 input"[158][197]nter [196]evice [206]umber: ";d
  34. 340 input"[158][197]nter [198]ilename: ";f$:f$=left$(f$,14):return
  35. 350 data 169,11,141,17,208,234,234,234,120,160,0,169,16,132,63,133,64,234,177
  36. 360 data 63,170,202,234,234,234,224,0,208,248,201,0,240,15,169,15,141,24,212
  37. 370 data 234,234,234,234,234,169,0,141,24,212,200,208,223,230,64,165,64,201
  38. 380 data 160,144,215,88,169,27,141,17,208,234,234,234,96,234,234,169,11,141,17
  39. 390 data 208,234,234,234,120,160,0,169,16,132,63,133,64,234,173,13,220,201,16
  40. 400 data 208,19,138,145,63,162,0,200,208,241,230,64,165,64,201,160,144,233,76
  41. 410 data 132,192,232,208,227,138,145,63,200,208,221,230,64,165,64,201,160,144
  42. 420 data 213,88,169,27,141,17,208,234,234,234,96,234,234,169,11,141,17,208,234
  43. 430 data 234,234,120,173,13,220,197,236,240,249,201,16,208,10,169,15,141
  44. 440 data 24,212,133,236,76,153,192,169,0,141,24,212,76,169,192,200
  45.